home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib11.dsk / CHANGE DEMO 1.bas < prev    next >
BASIC Source File  |  2023-02-26  |  352b  |  11 lines
  1. 0  HOME 
  2. 10  PRINT  CHR$(4)"BLOAD CHANGE"
  3. 20 CHANGE = 833
  4. 30  POKE 34,0: VTAB 1
  5. 40  LIST  -100
  6. 42  VTAB 20: PRINT "L$ = ";L$
  7. 45  VTAB 22: POKE 34,21: HOME 
  8. 50  INPUT "WHAT FUNCTION ? ";L$
  9. 60  CALL CHANGE,100
  10. 70  POKE 34,14: POKE 35,21: HOME : POKE 35,24: GOTO 30
  11. 100 :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::